﻿Public Class frmTransaction
    Dim frm = New frmSale
    Public Sub New()

        InitializeComponent()
        UI.FormatTapControl(tapsale)
        AddForm(tretail, frmSale)
        AddForm(tpurchase, frmPurchase)
        AddForm(tquotation, frmQuotation)
        'tapsale.TabPages.Remove(tquotation)
        tapsale.TabPages.Remove(tpurOrder)
        loadbyuser()
    End Sub
    Private Sub loadbyuser()
        Dim ugroup = frmLogin.groupid
        Select Case ugroup
            Case 1

            Case 2
                tapsale.TabPages.Remove(tquotation)
                tapsale.TabPages.Remove(tretail)
            Case 3
                tapsale.TabPages.Remove(tquotation)
                tapsale.TabPages.Remove(tpurchase)
        End Select
    End Sub


End Class